Is anyone else experiencing problems with Word 2007 and the 'ScaleHeight' vb commands.
Our document generation functions resize exported ole's by first getting the 'ScaleHeight' and 'ScaleWidth' and then rescaling based upon the page dimensions.
The following is code fragment, and this has worked well with 2003. I have tried hard setting the Integers, and the olePut methods work fine, but for some reason i cannot get the values from the oleGet
............
int myCurrentObjectHeightScaleFactor = 10
int myCurrentObjectWidthScaleFactor = 10
if(OleFunc(oleGet(PastedObject, "ScaleHeight", myCurrentObjectHeightScaleFactor), "ReSizeOLE: Current Scale Height of object ")) return null
if(OleFunc(oleGet(PastedObject, "ScaleWidth", myCurrentObjectWidthScaleFactor), "ReSizeOLE: Current Scale Width of object ")) return null
if (Height > MaxHeight or Width > MaxWidth or expandItems) {
int ScaleFactor = myCurrentObjectHeightScaleFactor * MaxHeight / Height
int ScaleFactorW = myCurrentObjectWidthScaleFactor * MaxWidth / Width
if (ScaleFactor > ScaleFactorW) ScaleFactor = ScaleFactorW
if(OleFunc(olePut(PastedObject, "ScaleHeight", ScaleFactor), "Scaling the height of the OLE object ")) return null
if(OleFunc(olePut(PastedObject, "ScaleWidth", ScaleFactor), "Scaling the width of the OLE object ")) return null
}
Any help is much Appreciated
dmellors74 - Thu Jul 30 08:36:41 EDT 2009 |